home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis411.d64 / .labyrinth < (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  7KB  |  198 lines
  1. 9 GOTO3000
  2. 10 DIMDA(1000):G=1067:PRINT"[147]":POKE53280,9:POKE53281,9
  3. 20 GOTO 500
  4. 99 POKE G,81
  5. 100 REM-----------STEUERUNG-----------
  6. 110 V=PEEK(56321):IF V=255 THEN 110
  7. 120 IF V=254 THEN B=PEEK(G-40):IF B=32 THEN POKE G,32:G=G-40:POKE G,81
  8. 130 IF V=253 THEN B=PEEK(G+40):IF B=32 THEN POKE G,32:G=G+40:POKE G,81
  9. 140 IF V=251 THEN B=PEEK(G-1):IF B=32 THEN POKE G,32:G=G-1:POKE G,81
  10. 150 IF V=247 THEN B=PEEK(G+1):IF B=32 THEN POKE G,32:G=G+1:POKE G,81
  11. 160 IF G=1925 THEN 800
  12. 170 GOTO 110
  13. 500 PRINT"[147]"
  14. 502 PRINT"LEVEL 1":TI$="000000"
  15. 503 FORI=1TO1000:NEXT
  16. 504 PRINT"[147]"
  17. 510 PRINT"                                        ";
  18. 540 PRINT" [144]                       "
  19. 550 PRINT"[145] [144]                          "
  20. 560 PRINT"[145] [144]                 "
  21. 570 PRINT"[145] [144]                            "
  22. 580 PRINT"[145] [144]               "
  23. 590 PRINT"[145] [144]                           "
  24. 600 PRINT"[145] [144]               "
  25. 610 PRINT"[145] [144]                       "
  26. 620 PRINT"[145] [144]                       "
  27. 630 PRINT"[145] [144]         "
  28. 640 PRINT"[145] [144]                                  "
  29. 650 PRINT"[145] [144]                     "
  30. 660 PRINT"[145] [144]                  "
  31. 670 PRINT"[145] [144]                     "
  32. 680 PRINT"[145] [144]                         "
  33. 690 PRINT"[145] [144]                          "
  34. 700 PRINT"[145] [144]                  "
  35. 710 PRINT"[145] [144]                          "
  36. 720 PRINT"[145] [144]           "
  37. 730 PRINT"[145] [144]                          "
  38. 740 PRINT"[145] [144]       "
  39. 750 PRINT"[145]                                       "
  40. 755 PRINT""
  41. 760 GOTO  99
  42. 800 REM--AUSGANG GEFUNDEN------------
  43. 810 PRINT"AUSGANG GEFUNDEN!!":F1$=TI$
  44. 820 FOR I=1 TO 100
  45. 830 POKE 53280,I:POKE 53281,I
  46. 840 NEXTI
  47. 1000 REM ---------2.LEVEL------------
  48. 1010 PRINT"[147]":TI$="000000"
  49. 1020 POKE53280,9:POKE53281,9
  50. 1030 PRINT"LEVEL 2"
  51. 1040 FORI=1 TO 340:READ DA(I):NEXT
  52. 1050 PRINT"[147]"
  53. 1060 PRINT"                                        "
  54. 1070 PRINT"[145] [144]     "
  55. 1080 PRINT"[145] [144]                       "
  56. 1090 PRINT"[145] [144]             "
  57. 1100 PRINT"[145] [144]                  "
  58. 1110 PRINT"[145] [144]              "
  59. 1120 PRINT"[145] [144]                   "
  60. 1130 PRINT"[145] [144]           "
  61. 1140 PRINT"[145] [144]                       "
  62. 1150 PRINT"[145] [144]            "
  63. 1160 PRINT"[145] [144]                     "
  64. 1170 PRINT"[145] [144]                 "
  65. 1180 PRINT"[145] [144]                 "
  66. 1190 PRINT"[145] [144]                      "
  67. 1200 PRINT"[145] [144]           "
  68. 1210 PRINT"[145] [144]                   "
  69. 1220 PRINT"[145] [144]             "
  70. 1230 PRINT"[145] [144]                "
  71. 1240 PRINT"[145] [144]                  "
  72. 1250 PRINT"[145] [144]                  "
  73. 1260 PRINT"[145] [144]                    "
  74. 1270 PRINT"[145] [144]        "
  75. 1280 PRINT"[145]                                       "
  76. 1290 PRINT"":PRINT"":POKE1102,81:G=1102
  77. 1299 K=1865:POKE K,24
  78. 1300 REM-----------STEUERUNG-----------
  79. 1305 FORI=1 TO 340
  80. 1310 V=PEEK(56321)
  81. 1320 IF V=254 THEN B=PEEK(G-40):IF B=32 THEN POKE G,32:G=G-40:POKE G,81
  82. 1330 IF V=253 THEN B=PEEK(G+40):IF B=32 THEN POKE G,32:G=G+40:POKE G,81
  83. 1340 IF V=251 THEN B=PEEK(G-1):IF B=32 THEN POKE G,32:G=G-1:POKE G,81
  84. 1350 IF V=247 THEN B=PEEK(G+1):IF B=32 THEN POKE G,32:G=G+1:POKE G,81
  85. 1360 IF G=1926 THEN 1600
  86. 1400 REM --------ZUEGE DES COMPUTERS---
  87. 1420 IF DA(I)=1 THEN POKE K,32:K=K-40:POKE K,24
  88. 1430 IF DA(I)=2 THEN POKE K,32:K=K+40:POKE K,24
  89. 1440 IF DA(I)=3 THEN POKE K,32:K=K-1:POKE K,24
  90. 1450 IF DA(I)=4 THEN POKE K,32:K=K+1:POKE K,24
  91. 1455 NEXT I
  92. 1460 GOTO 1305
  93. 1600 REM --AUSGANG GEFUNDEN 2.LEVEL
  94. 1610 PRINT"AUSGANG GEFUNDEN !!":F2$=TI$
  95. 1620 FOR I=0TO 100
  96. 1630 POKE53280,I:POKE53281,I
  97. 1640 NEXT I
  98. 1650 GOTO2000
  99. 1660 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  100. 1661 DATA 4,4,4,4,4,4,4,4,4,4,2,2,4,4,2,4,4,2,2,2,2,4,4,4,4
  101. 1662 DATA 2,2,4,4,4,1,1,4,4,1,4,4,4,4,4,4,4,4,1,1,4,4,4,1,1
  102. 1663 DATA 4,4,4,1,1,2,2,3,3,3,3,2,2,4,4,4,4,2,2,3,3,3,3
  103. 1664 DATA 2,2,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3
  104. 1665 DATA 1,1,1,1,4,4,2,1,1,1,1,3,3,3,3,3,3,3,3,3,3,1,4,4,4,4,4,1,1
  105. 1666 DATA 3,3,1,1,1,1,4,4,4,1,1,1,1,1,1,3,3,2,2,3,2,3,2,3,3,2,2,3,3,2
  106. 1667 DATA 3,3,2,2,3,3,3,1,1,3,3,2,2,2,2,2,4,4,2,2,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1
  107. 1668 DATA 3,3,2,3,2,3,2,3,3,2,2,2,2,2,3,3,1,1,1,1,1,1,4,1,2,4,2,4,4,2,2,2,2,2
  108. 1669 DATA 4,4,1,1,1,4,4,1,1,1,1,1,3,3,1,3,3,1,1,3,3,3,3,2,2,2,3,2,1,3,1,3,3
  109. 1670 DATA 2,2,2,2,3,3,2,2,4,4,4,4,2,2,2,2,2,4,4,4,4,4,4,4,4,2,2,2,4,2,2,2,2
  110. 1671 DATA 3,3,3,3,3,1,1,1,1,3,3,1,3,3,3,3,2,2,2,4,4,4,4,2,2,3,3,3,3,3,3
  111. 2000 PRINT"[147]":POKE53280,0:POKE53281,0
  112. 2001 GOSUB2050:PRINT" [158][194]    ZEIT 1. SPIEL: ";F1$:PRINT""
  113. 2002 GOSUB2051:PRINT" [158][194]    ZEIT 2. SPIEL: ";F2$:PRINT"[159]"
  114. 2009 PRINTTAB(8)"ERGEBNIS AUSDRUCKEN   [154][1][159]"
  115. 2010 PRINTTAB(8)"SPIEL WIEDERHOLEN     [154][2][159]"
  116. 2011 PRINTTAB(8)"SPIEL BEENDEN         [154][3][159]"
  117. 2020 POKE198,0:WAIT198,1:GETE$
  118. 2021 IFE$="1"THEN4000
  119. 2022 IFE$="2"THENCLR:GOTO10
  120. 2023 IFE$="3"THEN5000
  121. 2024 GOTO2020
  122. 2050 PRINT""
  123. 2051 PRINT" [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  124. 2052 PRINT" [158][194]                                    [194][146]"
  125. 2053 PRINT" [158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":RETURN
  126. 3000 PRINT"[147]":POKE53280,0:POKE53281,0
  127. 3001 F=200:P=10:FORJ=1TO10
  128. 3002 PRINT""
  129. 3010 PRINTTAB(P)"L":GOSUB3100
  130. 3011 PRINTTAB(P)"A":GOSUB3100
  131. 3012 PRINTTAB(P)"B":GOSUB3100
  132. 3013 PRINTTAB(P)"Y":GOSUB3100
  133. 3014 PRINTTAB(P)"R":GOSUB3100
  134. 3015 PRINTTAB(P)"I":GOSUB3100
  135. 3016 PRINTTAB(P)"N":GOSUB3100
  136. 3017 PRINTTAB(P)"T":GOSUB3100
  137. 3018 PRINTTAB(P)"H":GOSUB3100
  138. 3020 F=F-15:P=P+2:NEXT
  139. 3030 P=10:F=200:PRINT"[154]"
  140. 3031 PRINTTAB(P)"K";:GOSUB3100
  141. 3032 PRINTTAB(P)"A";:GOSUB3100
  142. 3033 PRINTTAB(P)"R";:GOSUB3100
  143. 3034 PRINTTAB(P)"L";:GOSUB3100
  144. 3035 PRINTTAB(P)"H";:GOSUB3100
  145. 3036 PRINTTAB(P)"E";:GOSUB3100
  146. 3037 PRINTTAB(P)"I";:GOSUB3100
  147. 3038 PRINTTAB(P)"N";:GOSUB3100
  148. 3039 PRINTTAB(P)"Z";:GOSUB3100
  149. 3040 PRINTTAB(P)" ";:GOSUB3100
  150. 3041 PRINTTAB(P)" ";:GOSUB3100
  151. 3042 PRINTTAB(P)" ";:GOSUB3100
  152. 3043 PRINTTAB(P)" ";:GOSUB3100
  153. 3044 PRINTTAB(P)"H";:GOSUB3100
  154. 3045 PRINTTAB(P)"E";:GOSUB3100
  155. 3046 PRINTTAB(P)"R";:GOSUB3100
  156. 3047 PRINTTAB(P)"P";:GOSUB3100
  157. 3048 PRINTTAB(P)"E";:GOSUB3100
  158. 3049 PRINTTAB(P)"L":GOSUB3100
  159. 3050 PRINTTAB(13)"DRUECK SPACE":GOSUB3051:GOTO3200
  160. 3051 POKE198,0:WAIT198,1:GETE$
  161. 3052 IFE$=CHR$(32)THENRETURN
  162. 3053 GOTO3051
  163. 3100 FORE=1TOF:NEXT:RETURN
  164. 3200 PRINT"[147]"
  165. 3201 PRINTTAB(8)"SPIELBEGINN        [1]"
  166. 3202 PRINTTAB(8)"SPIELERKLAERUNG    [2]"
  167. 3210 POKE198,0:WAIT198,1:GETE$
  168. 3211 IFE$="1"THENCLR:GOTO10
  169. 3212 IFE$="2"THEN3300
  170. 3213 GOTO3210
  171. 3300 PRINT"[147][159]"
  172. 3301 PRINTTAB(5)"MIT DEM JOYSTICK IN PORT I"
  173. 3302 PRINTTAB(5)"MUSST DU BEI 2 LABYRINTHEN"
  174. 3303 PRINTTAB(5)"DEN AUSGANG FINDEN.DABEI"
  175. 3304 PR